home *** CD-ROM | disk | FTP | other *** search
/ Curio City 7 / CURIO7.bin / mac / NET / World Talk for 68K Mac / WTV151MAC.sea / WorldTALK / KNOUT.HSC < prev    next >
Text File  |  1996-05-01  |  1KB  |  78 lines
  1. #
  2. # K-NET(COPERNICUS)ログアウトスクリプト
  3. #
  4. # 修正履歴
  5. # ----------+-----------------------------------------------
  6. # Ver1.0
  7. #
  8. # 外部変数
  9. # LOGINSTATUS -1    エラー発生で終了
  10. #             0     実行中
  11. #             1     正常終了
  12. #
  13. #
  14. 自動ログアウト() :
  15. DISPLOGX('スクリプトバージョン:V1.0')
  16.  
  17.  LOGINSTATUS = 0
  18.  ONLINE      = 1
  19.  FLUSHPORT()
  20.  SETTIMEOUT(15)
  21.  STARTTIMER()
  22.  
  23. #ログアウトコマンド発行
  24.  SEND('LOGOUT')
  25. #'LOGOUT'を待つ
  26. レスポンス受信:
  27.  DATA=RECV()
  28.  LEN = STRLEN(DATA)
  29.  POS = STRPOS(DATA,'LOGOUT')
  30.  IF LEN == POS
  31.   POS = STRPOS(DATA,'NO CARR' )
  32.   IF LEN == POS
  33.    GOTO レスポンス受信
  34.   ELSE
  35.    GOTO 正常終了
  36.   END
  37.  END
  38.  
  39. #"番号またはコマンド"を受信
  40. プロンプト受信:
  41.  DATA=RECV()
  42.  LEN = STRLEN(DATA)
  43.  POS = STRPOS(DATA,'番号またはコマンド')
  44.  IF LEN == POS
  45.   GOTO プロンプト受信
  46.  END
  47.  SEND('Q')
  48.  RECV()
  49.  
  50. ログアウトメッセージ確認:
  51.  DATA=RECV()
  52.  LEN = STRLEN(DATA)
  53.  POS = STRPOS(DATA,'SEE YOU')
  54.  IF LEN != POS
  55.   GOTO 正常終了
  56.  ELSE
  57.   DISPLOG(DATA)
  58.   PUTLOG(DATA)
  59.   GOTO ログアウトメッセージ確認
  60.  END
  61.  
  62. 正常終了 :
  63.  SETLINEOFF()
  64.  LOGINSTATUS = 0
  65.  FLUSHPORT()
  66.  RETURN
  67. END
  68.  
  69. エラー発生() :
  70.  MESSAGEBOX("エラー発生"+_ERR_C+":"+STRING(_ERR_D))
  71.  IF ONLINE == 1
  72.   DISPSTATE(1)
  73.   ONHOOK()
  74.  END
  75.  LOGINSTATUS = -1
  76. END
  77.  
  78.